home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 June / PCWorld_2004-06_cd.bin / software / vyzkuste / koolmoves / kmsetup.exe / {app} / Motion Scripts / Write On 4 / effect2.txt
Encoding:
Text File  |  2004-03-09  |  840 b   |  41 lines
  1. // main_init function
  2.  
  3. main_init = function(mc){
  4.  sub_delay = lastsubframe;
  5. }
  6.  
  7. // main_effect function
  8.  
  9. main_effect = function(mc,frame){
  10.  if (subs_done) end_effect=true;
  11. }
  12.  
  13. // sub_init function
  14.  
  15. sub_init = function(mc){
  16.  mc.step = 0;
  17.  if (!out_effect){
  18.   mc._alpha = 0;
  19.   mc._xscale = initial_xscale;
  20.   mc._yscale = initial_yscale;
  21.  }
  22. }
  23.  
  24. // sub_effect function
  25.  
  26. sub_effect = function(mc,frame){
  27.  prev_done = ($i>0 ? $smc[$i-1].done : true );
  28.  if (prev_done){
  29.   mc.step++;
  30.   perc = mc.step / lastsubframe;
  31.   if (out_effect) perc = 1-perc;
  32.   mc._xscale = perc * 100 + (1-perc) * initial_xscale;
  33.   mc._yscale = perc * 100 + (1-perc) * initial_yscale;
  34.   if (fade) mc._alpha = perc * 100 else mc._alpha = 100;
  35.   if (mc.step == lastsubframe){
  36.    if (out_effect) mc._alpha = 0;
  37.    mc.done = true;
  38.   }
  39.  }
  40. }
  41.